program testIfThenElse;

class testIfThenElse

BEGIN
   VAR aa, bb: integer;

FUNCTION testIfThenElse;
BEGIN   
   aa := 3;

   if aa = 0 THEN
      bb := 7
   ELSE
      bb := 9;

   PRINT bb
END
   
END   
.

